﻿Public Class frmPrePanel
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()

    End Sub

    Private Sub btnAceptar_Click(sender As Object, e As EventArgs) Handles btnAceptar.Click
        If txtUsuario.Text = "" Then
            MessageBox.Show("Usuario no válido")
            Exit Sub
        End If
        If txtContraseña.Text = "" Then
            MessageBox.Show("Contraseña no válida")
            Exit Sub
        End If

        If txtUsuario.Text.ToLower <> miAdmin.Usuario.ToLower Then
            MessageBox.Show("El usuario o la contraseña no es válido")
            Exit Sub
        End If
        If txtContraseña.Text <> miAdmin.Contraseña Then
            MessageBox.Show("La contraseña no es válida")
            Exit Sub
        End If
        frmPanelAdmin.ShowDialog()
        Me.Close()


    End Sub

    Private Sub frmPrePanel_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class